home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
DMTDEMOS
/
REMORLOC.DEM
< prev
next >
Wrap
Text File
|
1994-07-02
|
672b
|
35 lines
program RemOrLocSample;
uses crt, DMT;
var
DrvStatus : byte;
DrvLetter : char;
begin
ErrFlag := false;
Color( 7, 0 );
clrscr;
write( 'Select drive to check ( A-Z ) [ :]');
gotoxy( wherex - 3, wherey );
DrvLetter := upcase( readkey );
writeln( DrvLetter );
DrvStatus := RemOrLoc( DrvLetter ); { Call RemOrLoc function }
if ( ErrFlag ) then
begin
writeln( #7 );
writeln( ShowError( GetErrCode ) );
end
else
case ( DrvStatus ) of
0 : writeln( #13#10, 'Drive is a local drive.' );
1 : writeln( #13#10, 'Drive is a remote (network) dirve.' );
end;
Getenter;
end.